home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib03.dsk / ABSOLUTE DELETE PROGRAM.int next >
Text File  |  2023-02-26  |  1KB  |  21 lines
  1. 0 REM  * ABSOLUTE DELETE PROGRAM *
  2. 1 REM  * BY WILLIAM REYNOLDS III *
  3. 2 REM  * COPYRIGHT (C) 1980 BY   *
  4. 3 REM  * MICRO-SPARC, INC.       *
  5. 4 REM  * LINCOLN, MA. 01773      *
  6. 9 TEXT :CALL -936:VTAB 10:PRINT "BETTER DELETE PROGRAM -  MAKES ALL FILESTHAT  HAVE  BEEN  DELETED  UNRECOVERABLE"
  7. 10 PRINT "THIS PROGRAM DOES NOT  DELETE ANY ITSELF"
  8. 20 IF  PEEK (987)<120 THEN IOB= PEEK (987)*256+232:IF  PEEK (987)>120 THEN IOB=( PEEK (987)-128)*256+231-32767
  9. 30 BUFFER2=IOB-813:BUFFER1=IOB-813-256: POKE 1001,76: POKE 1002,181: POKE 1003, PEEK (987):RWTS=995
  10. 40 TRK=IOB+4:SEC=IOB+5:ADDLO=IOB+8:ADDHI=IOB+9:COM=IOB+12:VOL=IOB+3:ERR=IOB+13
  11. 50  POKE TRK,17: POKE SEC,0: POKE ADDHI,179: POKE ADDLO,187: POKE VOL,0: POKE ERR,0: POKE COM,1:CALL RWTS
  12. 60  POKE TRK, PEEK (BUFFER1+1): POKE SEC, PEEK (BUFFER1+2): POKE VOL,0: POKE COM,1: POKE ADDHI,180: POKE ERR,0
  13. 70 CALL RWTS:FST=11
  14. 80 IF  PEEK (BUFFER2+FST)=255 THEN 100:FST=FST+35:IF FST>255 THEN 90:IF  PEEK (BUFFER2+FST)=0 THEN 20000:GOTO 80
  15. 90  POKE TRK, PEEK (BUFFER2+1): POKE SEC, PEEK (BUFFER2+2): POKE COM,1: POKE ERR,0:IF  PEEK (SEC)=0 AND  PEEK (TRK)=0 THEN 20000:GOTO 70
  16. 100  POKE BUFFER2+FST+1,0:FOR I=3 TO 9: POKE BUFFER2+FST+I,136:NEXT I:FOR I=10 TO 34: POKE BUFFER2+FST+I,160:NEXT I
  17. 110 FST=FST+35:IF  PEEK (BUFFER2+FST)=255 THEN 100:IF FST>255 OR  PEEK (BUFFER2+FST)=0 THEN 120:GOTO 110
  18. 120  POKE COM,2: POKE ERR,0:GOSUB 10000:IF  PEEK (BUFFER2+FST)=0 THEN 20000:GOTO 90
  19. 10000 CALL RWTS:RETURN 
  20. 20000 PRINT "   DONE   ":END 
  21.